(defsystem test-readonly
  (:components-ro (coordinate))
  (setf coordinate-x 1.0))
